inherited frmDrpToPurchase: TfrmDrpToPurchase
  Left = 341
  Top = 191
  Caption = 'DRP'#36816#31639#19979#36798#37319#36141#35746#21333
  ClientHeight = 495
  ClientWidth = 726
  PixelsPerInch = 96
  TextHeight = 12
  object edtFocus: TcxTextEdit [0]
    Left = 364
    Top = 191
    TabOrder = 4
    Text = 'edtFocus'
    OnEnter = edtFocusEnter
    Width = 121
  end
  inherited Panel1: TPanel
    Width = 726
    Height = 117
    Color = clBtnFace
    inherited labFuncName: TLabel
      Width = 125
      Caption = 'DRP'#36816#31639#19979#36798#37319#36141#35746#21333
      Visible = False
    end
    inherited labFuncDesc: TLabel
      Left = 189
      Visible = False
    end
    inherited img3: TImage
      Left = 675
    end
    inherited Bevel1: TBevel
      Top = 114
      Width = 726
    end
    object lblPCode: TcxLabel
      Left = 73
      Top = 14
      AutoSize = False
      Transparent = True
      Height = 16
      Width = 200
    end
    object lblPName: TcxLabel
      Left = 73
      Top = 34
      AutoSize = False
      Transparent = True
      Height = 16
      Width = 200
    end
    object lblPSpec: TcxLabel
      Left = 73
      Top = 54
      AutoSize = False
      Transparent = True
      Height = 16
      Width = 200
    end
    object lblUnitName: TcxLabel
      Left = 73
      Top = 74
      AutoSize = False
      Transparent = True
      Height = 16
      Width = 200
    end
    object lblQuantity: TcxLabel
      Left = 73
      Top = 94
      AutoSize = False
      Transparent = True
      Height = 16
      Width = 200
    end
    object cxLabel1: TcxLabel
      Left = 8
      Top = 14
      AutoSize = False
      Caption = #36135#21697#32534#21495#65306
      Properties.Alignment.Horz = taRightJustify
      Transparent = True
      Height = 16
      Width = 69
      AnchorX = 77
    end
    object cxLabel2: TcxLabel
      Left = 8
      Top = 34
      AutoSize = False
      Caption = #36135#21697#21517#31216#65306
      Properties.Alignment.Horz = taRightJustify
      Transparent = True
      Height = 16
      Width = 69
      AnchorX = 77
    end
    object cxLabel3: TcxLabel
      Left = 8
      Top = 54
      AutoSize = False
      Caption = #35268#26684#65306
      Properties.Alignment.Horz = taRightJustify
      Transparent = True
      Height = 16
      Width = 69
      AnchorX = 77
    end
    object cxLabel4: TcxLabel
      Left = 8
      Top = 74
      AutoSize = False
      Caption = #21333#20301#65306
      Properties.Alignment.Horz = taRightJustify
      Transparent = True
      Height = 16
      Width = 69
      AnchorX = 77
    end
    object cxLabel5: TcxLabel
      Left = 8
      Top = 93
      AutoSize = False
      Caption = #25968#37327#65306
      Properties.Alignment.Horz = taRightJustify
      Transparent = True
      Height = 16
      Width = 69
      AnchorX = 77
    end
  end
  inherited pnlBottom: TPanel
    Top = 440
    Width = 726
    inherited bvl1: TBevel
      Width = 726
    end
    inherited btnOK: TcxButton
      Left = 549
      ModalResult = 0
      OnClick = btnOKClick
    end
    inherited btnCancel: TcxButton
      Left = 632
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 117
    Width = 726
    Height = 323
    Align = alClient
    PopupMenu = pmMake
    TabOrder = 2
    object DrpToPurchaseView: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      OnFocusedItemChanged = DrpToPurchaseViewFocusedItemChanged
      OnFocusedRecordChanged = DrpToPurchaseViewFocusedRecordChanged
      DataController.DataSource = dsMake
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.FocusCellOnTab = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.GoToNextCellOnEnter = True
      OptionsBehavior.FocusCellOnCycle = True
      OptionsData.Appending = True
      OptionsSelection.MultiSelect = True
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Selection = MainDM.bsSelect
      Styles.Header = MainDM.bsTitle
      object DrpToPurchaseViewrevdate: TcxGridDBColumn
        DataBinding.FieldName = 'revdate'
        HeaderAlignmentHorz = taCenter
        Width = 87
      end
      object DrpToPurchaseViewt_name: TcxGridDBColumn
        DataBinding.FieldName = 't_name'
        HeaderAlignmentHorz = taCenter
        Width = 119
      end
      object DrpToPurchaseViewunitname: TcxGridDBColumn
        DataBinding.FieldName = 'unitname'
        PropertiesClassName = 'TcxComboBoxProperties'
        OnGetPropertiesForEdit = DrpToPurchaseViewunitnameGetPropertiesForEdit
        HeaderAlignmentHorz = taCenter
        Width = 96
      end
      object DrpToPurchaseViewquantity: TcxGridDBColumn
        DataBinding.FieldName = 'quantity'
        HeaderAlignmentHorz = taCenter
        Width = 87
      end
      object DrpToPurchaseViewprice: TcxGridDBColumn
        DataBinding.FieldName = 'price'
        HeaderAlignmentHorz = taCenter
        Width = 73
      end
      object DrpToPurchaseViewamount: TcxGridDBColumn
        DataBinding.FieldName = 'amount'
        HeaderAlignmentHorz = taCenter
        Width = 95
      end
      object DrpToPurchaseViewremark: TcxGridDBColumn
        DataBinding.FieldName = 'remark'
        HeaderAlignmentHorz = taCenter
        Width = 167
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = DrpToPurchaseView
    end
  end
  object edtTrader: TcxDBLookupComboBox
    Tag = 9
    Left = 92
    Top = 140
    DataBinding.DataField = 'traderid'
    DataBinding.DataSource = dsMake
    Properties.ListColumns = <>
    TabOrder = 3
    Visible = False
    OnKeyDown = edtTraderKeyDown
    OnKeyPress = edtTraderKeyPress
    Width = 129
  end
  object cdsMake: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'revdate'
        DataType = ftDateTime
      end
      item
        Name = 'traderid'
        DataType = ftInteger
      end
      item
        Name = 't_name'
        DataType = ftString
        Size = 64
      end
      item
        Name = 'unitid'
        DataType = ftInteger
      end
      item
        Name = 'unitname'
        DataType = ftString
        Size = 24
      end
      item
        Name = 'quantity'
        DataType = ftFloat
      end
      item
        Name = 'price'
        DataType = ftFloat
      end
      item
        Name = 'amount'
        DataType = ftFloat
      end
      item
        Name = 'remark'
        DataType = ftString
        Size = 128
      end
      item
        Name = 'bquantity'
        DataType = ftFloat
      end
      item
        Name = 'unitrate'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforeInsert = cdsMakeBeforeInsert
    OnNewRecord = cdsMakeNewRecord
    Left = 283
    Top = 270
    object cdsMakerevdate: TDateTimeField
      DisplayLabel = #25910#36135#26085#26399
      FieldName = 'revdate'
    end
    object cdsMaketraderid: TIntegerField
      FieldName = 'traderid'
    end
    object cdsMaket_name: TStringField
      DisplayLabel = #20379#24212#21830
      FieldName = 't_name'
      Size = 64
    end
    object cdsMakeunitid: TIntegerField
      FieldName = 'unitid'
    end
    object cdsMakeunitname: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'unitname'
      Size = 24
    end
    object cdsMakequantity: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'quantity'
      OnChange = cdsMakequantityChange
      DisplayFormat = '0.####'
    end
    object cdsMakeprice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'price'
      DisplayFormat = '0.########'
    end
    object cdsMakeamount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'amount'
      DisplayFormat = '0.##'
    end
    object cdsMakeRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'remark'
      Size = 128
    end
    object cdsMakebquantity: TFloatField
      FieldName = 'bquantity'
    end
    object cdsMakeunitrate: TFloatField
      FieldName = 'unitrate'
    end
  end
  object dsMake: TDataSource
    DataSet = cdsMake
    Left = 220
    Top = 270
  end
  object pmMake: TPopupMenu
    Left = 345
    Top = 270
    object muAppend: TMenuItem
      Caption = #26032#22686#26126#32454'(A)'
      OnClick = muAppendClick
    end
    object muDelete: TMenuItem
      Caption = #21024#38500#26126#32454'(D)'
      OnClick = muDeleteClick
    end
  end
end
